#!/usr/bin/perl

%code_map = ('black' => 0, 'red' => 1, 'green' => 2, 'yellow' => 3,
              'blue' => 4, 'magenta' => 5, 'cyan' => 6, 'white' => 7);

die <<EOF unless $#ARGV == 1;
usage: $0 <foreground color> <background color>
  where colors are:
    black, red, green, yellow, blue, magenta, cyan, white
EOF

my $foreground_color = shift @ARGV;
my $background_color = shift @ARGV;

die "unknown foreground color: $foreground_color\n"
  unless exists $code_map{$foreground_color};
die "unknown background color: $background_color\n"
  unless exists $code_map{$background_color};

my $foreground_code = $code_map{lc($foreground_color)} + 30;
my $background_code = $code_map{lc($background_color)} + 40;

print "[$foreground_code;${background_code}m";
